1 REM ************************
2 REM *      GAMELOADER      *
3 REM *     BY TIM BROWN     *
4 REM ************************
5 POKE53281,12:POKE53280,12:PRINT"[147][144]"
10 PRINT"BASIC LOADER CONSTRUCTION"
20 INPUT"ENTER PROGRAM NAME";NA$
30 INPUT"ENTER ADDRESS TO SYS";AD$
40 NX$=LEFT$(NA$,1)+"X":AD=VAL(AD$)
50 PRINT"INSERT PROGRAM DISK INTO DRIVE"
60 PRINT"Y/N"
70 GETA$:IFA$<>"Y"ANDA$<>"N"THEN70
80 IFA$="N"THENGOSUB9000:GOTO50
100 PRINT"[147]NOW CONSTRUCTING LOADER"
110 OPEN1,8,15:PRINT#1,"R0:"+NX$+"="+NA$
115 INPUT#1,E,E$:IFE>0THENPRINT"[147]ERROR !":CLOSE1:GOTO10
117 CLOSE1:PRINT"[147]":PRINT"NEW"
120 PRINT"100 IFA=0THENA=1:LOAD"CHR$(34)NX$CHR$(34)",8,1"
130 PRINT"110 PRINT"CHR$(34)"READY"CHR$(34)
140 PRINT"130 SYS"AD":NEW"
145 PRINT"SAVE"CHR$(34)NA$CHR$(34)",8"
150 PRINT"";:FORR=631TO644:POKER,13:NEXT
160 POKE198,13:END
9000 S=54272:FORE=STOS+28:POKEE,0:NEXT
9010 POKE54296,15:POKE54277,0:POKE54278,240
9020 POKE54275,1:POKE54274,0
9030 POKE54273,33:POKE54272,135:POKE54276,65
9040 FORT=1TO500:NEXT:POKE54276,64
9050 POKE54296,0
9090 RETURN